'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
Declare Sub NewWinTitle

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	
	On Error Resume Next
	'Sendkeys "{tab}{tab}~~",0
	gCurPage = 4
	
	Set Currentwindow.Activeview =currentDocument.warning~ message~ table
	CurrentDocument.activate
	CurrentDocument.window.maximize
	
	Err = 0
	
End Sub
'++LotusScript Development Environment:2:2:NewWinTitle:1:8
Sub NewWinTitle
	'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
	Dim activeWin As Integer, winTitle As String
	activeWin% = GetActiveWindow()
	winTitle$ = ""
	SetWindowTextA activeWin%, winTitle$
End Sub